25
How can I determine if the giving input object is a file, folder (sample 2)

OleObject oThumbnail

oThumbnail = ole_1.Object
MessageBox("Information",string( String(oThumbnail.FormatABC("`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")) ))
MessageBox("Information",string( String(oThumbnail.FormatABC("`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample")) ))
MessageBox("Information",string( String(oThumbnail.FormatABC("`The ` + ffile + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample\elogo2.jpg")) ))

24
Is there any function to get automatically the size of the file in KB, MB or GB

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Size: <b>` + fsizeF"
oThumbnail.EndUpdate()

23
How can I get the size of the file (GB)

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Size: <b>` + ( (fsize/1024/1024/1024) format `` ) + ` GB(s)`"
oThumbnail.EndUpdate()

22
How can I get the size of the file (MB)

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Size: <b>` + ( (fsize/1024/1024) format `` ) + ` MB(s)`"
oThumbnail.EndUpdate()

21
How can I get the size of the file (KB)

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Size: <b>` + ( (fsize/1024) format `` ) + ` KB(s)`"
oThumbnail.EndUpdate()

20
How can I get the size of the file (bytes)

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Size: <b>` + fsize + ` byte(s)`"
oThumbnail.EndUpdate()

19
How do I get the time the file was created, opened and modified

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.Padding = ""
oThumbnail.Alignment = 33
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`"
oThumbnail.SingleCaption = oThumbnail.Caption
oThumbnail.EndUpdate()

18
How can I display the date/time the file/folder was last opened

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Opened: <b>` + date(fopened - bias/24/60)"
oThumbnail.SingleCaption = oThumbnail.Caption
oThumbnail.EndUpdate()

17
How can I display the date/time the file/folder was last modified

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Modified: <b>` + date(fmodified - bias/24/60)"
oThumbnail.EndUpdate()

16
How can I display the date/time the file/folder was created

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Created: <b>` + longdate(date(fcreated - bias/24/60)) + ` ` + time(date(fcreated - bias/24/60))"
oThumbnail.SingleCaption = oThumbnail.Caption
oThumbnail.EndUpdate()

15
How can I get the alternate name of the file

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Alternate Name: <b>` + faname + `</b>, Name: <b>` + fname"
oThumbnail.EndUpdate()

14
How can I get the file's extension

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Extension: <b>` + fext"
oThumbnail.EndUpdate()

13
I've noticed the Caption property can use expressions, based on the file, the question is how can I use that feature without the Caption property

OleObject oThumbnail

oThumbnail = ole_1.Object
MessageBox("Information",string( String(oThumbnail.FormatABC("ffile +` ` + ( len(fname) ? `this is a file/folder`: `not found`)",,,,"C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")) ))

12
Can I determine if a file/thumbnail exists (sample 1)

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")
oThumbnail.AddInputFiles("sss")
oThumbnail.Caption = "len(fname) ? `this is a file/folder` : `<fgcolor=FF0000><u>not found`"
oThumbnail.EndUpdate()

11
How can I display the name of the file

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "`Name: <b>` + fname"
oThumbnail.EndUpdate()

10
How can I display the full name of the file

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
oThumbnail.Caption = "ffile"
oThumbnail.EndUpdate()

9
How can I display the index/number of files/thumbnails

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BeginUpdate()
oThumbnail.AcceptFolders = -1
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample")
oThumbnail.Caption = "(findex + 1) + ` of ` + fcount"
oThumbnail.EndUpdate()

8
How can I add more files ( sample 3 )

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\device.png")

7
How can I add more files ( sample 2 )

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\logo.png\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\cordova.png"

6
How can I add more files ( sample 1 )

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png"

5
How do I clear the control's content
OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.InputFile = ""

4
How can I add a file ( sample 3 )

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.AddInputFiles("C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg")

3
How can I add a file ( sample 2 )

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.InputFiles = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"

2
How can I add a file ( sample 1 )

OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.InputFile = "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"

1
How do I change the control's background color
OleObject oThumbnail

oThumbnail = ole_1.Object
oThumbnail.BackColor = RGB(240,240,240)